home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Magnum One
/
Magnum One (Mid-American Digital) (Disc Manufacturing).iso
/
d17
/
banner.arc
/
BANNER.BAS
next >
Wrap
BASIC Source File
|
1986-02-23
|
4KB
|
126 lines
20 REM
30 REM COMPUTERS: MOST (NOT INCL. APPLE)
40 REM
50 REM LANGUAGE REQUIRED:BASIC
60 REM
70 REM APPROX. DOWNLOAD TIME(MIN.): 5
80 REM
90 REM ****************************************************
100 REM
110 REM CREATE LONG BANNERS WITH WHATEVER YOU WANT TO SAY ON
120 REM
130 REM THEM. GREAT FOR PARTIES, FESTIVITIES, AND FOR
140 REM
150 REM GETTING YOUR MESSAGE ACROSS.
160 REM
720 REM PROGRAM BY TOM KELLY TO PLOT WORDS ON TELETYPE
730 REM *************************10/24/75*****************************
740 INPUT "WOULD YOU LIKE A HARDCOPY ";Q$
750 IF LEFT$(Q$,1) = "Y" THEN PFLAG = -1
760 DIM M(60,6),P(15)
770 PRINT "SIZE (1-7)";
780 INPUT Z
790 PRINT "WHAT'S YOUR MESSAGE";
800 INPUT B$
810 PRINT
820 PRINT "METHOD (1 OR 2)";
830 INPUT A
840 IF A<>2 THEN 870
850 PRINT " INPUT 2 OF YOUR CHARACTERS";
860 INPUT C$
870 IF PFLAG THEN LPRINT ELSE PRINT
880 A$="ABCDEFGHIJKLMNOPQRSTUVWXYZ 0123456789<>=#+-*/\()[].,;:!"
890 A$=A$+"?&$%":REM "&" GIVES QUOTE
900 FOR N=1 TO 60: FOR N1=1 TO 6:READ M(N,N1):NEXT N1,N
910 FOR I=1 TO 9
920 LET T(I)=2^(I)-1
930 NEXT I
940 FOR I=1 TO LEN(B$)
950 FOR J=1 TO 60
960 IF MID$(A$,J,1)<>MID$(B$,I,1) THEN 990
970 F=J
980 GOTO 1000
990 NEXT J
1000 FOR K=1 TO 6
1010 LET X=M(F,K)
1020 IF X=0 THEN 1300
1030 FOR Q=1 TO 9
1040 IF T(Q)<X THEN 1070
1050 LET Y=Q
1060 GOTO 1080
1070 NEXT Q
1080 FOR L=1 TO 9
1090 LET P(L)=X-2*INT(X/2)
1100 LET X=INT(X/2)
1110 NEXT L
1120 FOR M=1 TO Z
1130 FOR O=1 TO Y
1140 IF P(O)=0 THEN 1230
1150 FOR Z1=1 TO Z
1160 ON A GOTO 1170,1200
1170 IF PFLAG THEN GOTO 1660 ELSE PRINT MID$(B$,I,1)MID$(B$,I,1);
1180 REM RETURN FROM PSEUDO SUBROUTINE
1190 GOTO 1210
1200 IF PFLAG THEN LPRINT C$; ELSE PRINT C$;
1210 NEXT Z1
1220 GOTO 1260
1230 FOR Z2=1 TO Z
1240 IF PFLAG THEN LPRINT " "; ELSE PRINT " ";
1250 NEXT Z2
1260 NEXT O
1270 IF PFLAG THEN LPRINT ELSE PRINT
1280 NEXT M
1290 GOTO 1320
1300 IF PFLAG THEN LPRINT ELSE PRINT
1310 IF PFLAG THEN LPRINT ELSE PRINT
1320 NEXT K
1330 NEXT I
1340 IF PFLAG THEN LPRINT ELSE PRINT
1350 DATA 511,264,264,264,511,0,511,273,273,273,238,0
1360 DATA 511,257,257,257,387,0,511,257,257,257,254,0
1370 DATA 511,273,273,273,257,0,511,272,272,256,256,0
1380 DATA 511,257,273,273,415,0,511,16,16,16,511,0
1390 DATA 0,257,511,257,0,0,3,1,1,1,511,0
1400 DATA 511,16,40,68,387,0,511,1,1,1,1,0
1410 DATA 511,96,24,96,511,0,511,96,24,6,511,0
1420 DATA 511,257,257,257,511,0,511,272,272,272,496,0
1430 DATA 511,257,261,259,511,0,511,272,272,272,239,0
1440 DATA 499,273,273,273,415,0,256,256,511,256,256,0
1450 DATA 510,1,1,1,510,0,496,12,3,12,496,0
1460 DATA 511,12,48,12,511,0,387,204,48,204,387,0
1470 DATA 384,96,31,96,384,0,259,269,313,353,385,0,0,0,0,0,0,0
1480 DATA 511,263,313,449,511,0,0,129,511,1,0,0
1490 DATA 391,265,281,273,225,0,387,273,273,273,495,0
1500 DATA 496,16,16,16,511,0,499,273,273,273,270,0
1510 DATA 511,273,273,273,415,0,384,263,280,352,384,0
1520 DATA 238,273,273,273,238,0,499,273,273,273,511,0
1530 DATA 16,40,40,68,68,0,68,68,40,40,16,0
1540 DATA 40,40,40,40,40,0,40,124,40,124,40,0
1550 DATA 16,16,124,16,16,0,16,16,16,16,16,0,68,40,254,40,68,0
1560 DATA 3,14,56,224,384,0,384,224,56,14,3,0
1570 DATA 0,56,198,387,257,0,257,387,198,56,0,0
1580 DATA 0,511,257,257,0,0,0,257,257,511,0,0
1590 DATA 0,0,1,1,0,0,0,0,2,3,0,0
1600 DATA 0,0,130,131,0,0,0,0,130,130,0,0
1610 DATA 0,0,509,509,0,0,128,256,269,285,224,0
1620 DATA 0,448,0,448,0,0,0,0,448,0,0,0
1630 DATA 499,273,511,273,415,0,387,398,312,483,487,0
1640 END
1650 END
1660 LPRINT MID$(B$,I,1)MID$(B$,I,1);
1670 GOTO 1180
* SUCCESSFUL TRANSMISSION *
PRESS (D)OWNLOAD, (Q)UIT: